home *** CD-ROM | disk | FTP | other *** search
/ infoROM 17,000 Product Descriptions for Business / infoROM Product Descriptions for Business - ESX Interactive.ISO / argdemos / automc / amcwin.cm_ / amcwin.cm
Encoding:
Text File  |  1992-08-06  |  2.6 KB  |  51 lines
  1. ; *******   AutoManager Classic for Windows CMS file   *******
  2. ; *******       Copyright (C) 1992, Cyco Software      ******* 
  3. ;
  4. ; This file should be in your Windows directory.
  5. ;
  6. ; AMCWIN.CMS contains definitions of variables, command strings for user
  7. ; definable menu options, and command string for reacting on events.
  8. ; Command strings are made using BaseLISP, a subset of Lisp that can be
  9. ; used to retrieve information from AutoManager, perform calculations,
  10. ; send commands to other applications, and lots of other things.
  11. ; 
  12. ; Command strings can be triggered in two ways:
  13. ; 1) Through an event. For example, when AutoManager is started the event
  14. ;    'Open' occurs.
  15. ; 2) By choosing a user-definable menu option.
  16. ;
  17. ; The AutoManager Help file contains more information on how to create
  18. ; command strings using BaseLISP.
  19.  
  20.  
  21. [AutoCAD Variables]
  22. ; The variable AcadExe should be assigned the full path of AutoCAD for 
  23. ; Windows, for example:
  24. AcadExe=o:\windows\apps\acadwin\acad.exe
  25.  
  26.  
  27. [Frame Events]
  28. ; The following events will trigger execution of command strings:
  29. Open=[(IntroScreen)][(run "amcrem.exe")]
  30. Close=[(Kill "Remote")]
  31.  
  32.  
  33. [General FileMenuItems]
  34. ; These menu items will appear in the File menu
  35. AutoCAD Path...=[(setcfgvar (getsysvar "CMSFILE") "AutoCAD variables" "AcadExe" (InputBox "Please enter the path for AutoCAD" "Example: C:\ACADWIN\ACAD.EXE" (getcfgvar (getsysvar "CMSFILE") "AutoCAD variables" "AcadExe")))][(if (fileexist (getcfgvar (getsysvar "CMSFILE") "AutoCAD variables" "AcadExe")) (MessageBox "Confirmation:" "The AutoCAD path exists") (MessageBox "Attention:" "The AutoCAD path has not been set to an existing file!"))]
  36. Edit &Command File...=[(MessageBox "Attention:" "Changed settings won't take effect before you restart AM-Classic.")][(run (strcat "notepad.exe " (getsysvar "CMSFILE")))]
  37. &File Manager...=[(run winfile.exe)]
  38. &Evaluate expression...=[(MessageBox "Result" (eval (InputBox "Evaluate" "Baselisp expression:" "(+ 1 2)")))]
  39.  
  40. [Frame FileMenuItems]
  41. ; These menu items appear in the File menu when no drawings are open
  42.  
  43.  
  44. [Dwg_Dxf FileMenuItems]
  45. ; These menu items appear in the File menu when an AutoCAD DWG or DXF
  46. ; drawing is selected
  47. Launch AutoCAD...=[(run (strcat (getcfgvar (getsysvar "CMSFILE") "AutoCAD variables" "AcadExe") (strcat " " (getsysvar "CURRENTDRAWING"))))]
  48. Insert Block in AutoCAD...=[(DdeDoExecute "AutoCAD" (strcat "[insert " (strcat (dos2acadpath (getsysvar "CURRENTDRAWING")) " ]")))]
  49. Xref Block in AutoCAD...=[(DdeDoExecute "AutoCAD" (strcat "[xref a " (strcat (dos2acadpath (getsysvar "CURRENTDRAWING")) " ]")))]
  50.  
  51.